home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / MICRO ON THE APPLE 2.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  41 lines
  1. 10  REM  **********************
  2. 20  REM  *                    *
  3. 30  REM  * MICRO/APPLE HEADER *
  4. 40  REM  *                    *
  5. 50  REM  * COPYRIGHT (C) 1981 *
  6. 60  REM  *   MICRO INK, INC.  *
  7. 70  REM  * ALL RIGHTS RESERVED*
  8. 80  REM  *                    *
  9. 90  REM  **********************
  10. 91  REM 
  11. 95  TEXT : HOME :C$ = "*": READ A,B,C,D
  12. 100  GOSUB 2000: VTAB 3: HTAB 8
  13. 110  INVERSE : PRINT "MICRO ON THE APPLE: DISK"
  14. 120  FLASH : GOSUB 1000
  15. 130  NORMAL : VTAB C +2: HTAB A +3: PRINT "MICRO ON THE APPLE"
  16. 135  VTAB C +3: HTAB A +9: PRINT "VOL. 2"
  17. 140  HTAB A +3: VTAB C +5: PRINT "COPYRIGHT (C) 1981"
  18. 150  HTAB A +5: PRINT "MICRO INK, INC."
  19. 155  HTAB A +2: PRINT "CHELMSFORD, MA 01824"
  20. 157  PRINT 
  21. 160  HTAB A +3: PRINT "ALL RIGHTS RESERVED"
  22. 170  FOR X = 1 TO 700: NEXT X
  23. 180  INVERSE : GOSUB 1000
  24. 200  NORMAL : VTAB 20: HTAB 2: PRINT "WOULD YOU LIKE TO SEE THE CATALOG?";
  25. 210  GET Y$: IF Y$ < >"Y"  AND Y$ < >"N"  THEN 200
  26. 230  IF Y$ = "N"  THEN  HOME : END 
  27. 240  HOME : PRINT : PRINT  CHR$(4);"CATALOG"
  28. 250  END 
  29. 1000  HTAB A: VTAB C: FOR X = 1 TO B -A +1: PRINT C$;: NEXT : PRINT 
  30. 1010  FOR Y = C TO D
  31. 1020  HTAB A: PRINT C$: HTAB B: PRINT C$: VTAB Y: NEXT 
  32. 1030  HTAB A: FOR X = 1 TO B -A +1: PRINT C$;: NEXT : PRINT 
  33. 1040  RETURN 
  34. 2000  GR : POKE 49234,0: FOR X = 0 TO 39
  35. 2010  COLOR=  INT( RND(1) *16)
  36. 2020  HLIN X,39 -X AT X
  37. 2030  VLIN X,47 -X AT 39 -X
  38. 2040  HLIN 39 -X,X AT 47 -X
  39. 2050  VLIN 47 -X,X AT X
  40. 2060  NEXT X: TEXT : HOME : RETURN 
  41. 3000  DATA  8,31,6,17